home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-websites-
/
wirenet
/
files
/
dashboard2.lha
/
Dashboard2
/
AmiTCP
/
bin
/
GetStatus
< prev
next >
Wrap
Text File
|
1998-03-27
|
529b
|
25 lines
/*
$VER: GetStatus 2.0 (26.3.98)
Get status from U-Net and display if information has changed
*/
options results
address command
/* ;;;Change these if you need to */
StatusFile = 'S:U-Net.Status'
Fingercmd = 'finger'
Window = 'CON:0/0/615/200/Status/AUTO/CLOSE/WAIT/INACTIVE'
Server = 'status@u-net.net'
;;;
/* ;;;Don't change these */
OldSize = subword(statef(StatusFile),2,1)
FingerCmd Server '>'StatusFile
NewSize = subword(statef(StatusFile),2,1)
if NewSize ~= OldSize then 'Type' StatusFile '>'Window
;;;
exit